home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
vbboid
/
boittest.frm
< prev
next >
Wrap
Text File
|
1999-09-15
|
42KB
|
1,351 lines
VERSION 5.00
Begin VB.Form Form1
Caption = "vbBoid : Example of emergent behaviour ⌐ RL 1999"
ClientHeight = 8130
ClientLeft = 60
ClientTop = 630
ClientWidth = 11880
ForeColor = &H8000000F&
LinkTopic = "Form1"
MinButton = 0 'False
ScaleHeight = 8130
ScaleWidth = 11880
StartUpPosition = 2 'CenterScreen
WindowState = 2 'Maximized
Begin VB.Frame Frame4
Height = 8055
Left = 0
TabIndex = 69
Top = 0
Width = 1875
Begin VB.HScrollBar HScroll1
Height = 255
Index = 3
Left = 120
Max = 50
TabIndex = 96
Top = 360
Value = 30
Width = 1575
End
Begin VB.CommandButton Command1
Caption = "Clear"
Height = 375
Left = 960
TabIndex = 95
Top = 7080
Width = 855
End
Begin VB.CheckBox chkEnclosed
Caption = "Enclosed"
Height = 375
Left = 180
TabIndex = 94
Top = 6660
Width = 1335
End
Begin VB.CommandButton cmdExit
Caption = "Exit"
Height = 375
Left = 120
TabIndex = 87
Top = 7560
Width = 795
End
Begin VB.CheckBox chkShowCentre
Caption = "Show"
Height = 255
Left = 840
TabIndex = 86
Top = 720
Width = 735
End
Begin VB.HScrollBar HScroll1
Height = 255
Index = 0
Left = 120
Max = 10
TabIndex = 85
Top = 960
Value = 3
Width = 1575
End
Begin VB.HScrollBar HScroll1
Height = 255
Index = 1
Left = 120
Max = 10
TabIndex = 84
Top = 1560
Value = 4
Width = 1575
End
Begin VB.HScrollBar HScroll1
Height = 255
Index = 2
Left = 120
Max = 10
TabIndex = 83
Top = 2160
Value = 6
Width = 1575
End
Begin VB.TextBox Text6
Height = 285
Left = 1200
TabIndex = 82
Text = ".5"
Top = 3060
Width = 495
End
Begin VB.CommandButton cmdExecute
Caption = "Execute"
Height = 375
Left = 60
TabIndex = 81
Top = 7080
Width = 855
End
Begin VB.TextBox Text5
Height = 285
Left = 1200
TabIndex = 80
Text = "80"
Top = 2580
Width = 495
End
Begin VB.CheckBox chkGrid
Caption = "Show Grid"
Height = 255
Left = 180
TabIndex = 79
Top = 5160
Width = 1335
End
Begin VB.CheckBox chkTrails
Caption = "Show Trails"
Height = 255
Left = 180
TabIndex = 78
Top = 4800
Width = 1335
End
Begin VB.TextBox Text7
Height = 285
Left = 1200
TabIndex = 77
Text = "4"
Top = 3540
Width = 495
End
Begin VB.CheckBox chkShowSep
Caption = "Show "
Height = 255
Left = 840
TabIndex = 76
Top = 1320
Width = 735
End
Begin VB.CheckBox chkShowAlign
Caption = "Show "
Height = 255
Left = 840
TabIndex = 75
Top = 1920
Width = 855
End
Begin VB.CheckBox chkShowSensor
Caption = "Show Vision"
Height = 255
Left = 180
TabIndex = 74
Top = 4440
Width = 1335
End
Begin VB.CheckBox chkShowBox
Caption = "Show Obstacle Box"
Height = 375
Left = 180
TabIndex = 73
Top = 5520
Width = 1335
End
Begin VB.CheckBox chkShowColours
Caption = "Show Colours"
Height = 255
Left = 180
TabIndex = 72
Top = 4080
Width = 1335
End
Begin VB.CheckBox chkShowArrow
Caption = "Show Arrow"
Height = 375
Left = 180
TabIndex = 71
Top = 5940
Width = 1335
End
Begin VB.CheckBox chkShowCircle
Caption = "Show Circle"
Height = 375
Left = 180
TabIndex = 70
Top = 6300
Width = 1335
End
Begin VB.Label Label3
Caption = "Boid Count"
Height = 255
Index = 6
Left = 120
TabIndex = 97
Top = 120
Width = 1695
End
Begin VB.Label Label3
Caption = "Centre"
Height = 255
Index = 0
Left = 120
TabIndex = 93
Top = 720
Width = 735
End
Begin VB.Label Label3
Caption = "Separate"
Height = 255
Index = 1
Left = 120
TabIndex = 92
Top = 1320
Width = 735
End
Begin VB.Label Label3
Caption = "Align"
Height = 255
Index = 2
Left = 120
TabIndex = 91
Top = 1920
Width = 735
End
Begin VB.Label Label3
Caption = "Sensor Range (Pix)"
Height = 495
Index = 3
Left = 120
TabIndex = 90
Top = 2580
Width = 975
End
Begin VB.Label Label3
Caption = "Max Turn (Rad)"
Height = 495
Index = 4
Left = 120
TabIndex = 89
Top = 3060
Width = 735
End
Begin VB.Label Label3
Caption = "Field of View (Rad)"
Height = 495
Index = 5
Left
